home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
SYMBOL-S.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
2KB
|
14 lines
;;; compiled by jwz@thalidomide on Tue Jun 30 23:30:39 1992
;;; from file /cadillac-th/jwz/emacs19/lisp/utils/symbol-syntax.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(byte-code "└┴!¼é┬├─Mê┼╞Mê╟╚Mê╔╩Mê╦╠!ç" [boundp symbol-syntax-table-alist nil update-symbol-syntax-table-alist #[nil "┴ë:¡╓@¼å─┼!ꬽ@@¼å─╞!ê¬á@@ë9½ÿ@A½ä─╟!ê\n9½å\nJë¬w@\náê╚@@!¼å─╔!ê¬Ä@A¼ë@╩@@!íêAë¬'*ç" [symbol-syntax-table-alist nil item alist error "Missing alist item" "Alist item with null car" "Alist item expected to have null cdr" syntax-table-p "Alist item car expected to be symbol table" make-symbol-syntax-table] 4] get-symbol-syntax-table #[(norm-table) "└\n₧ë¼¥─ ê\n₧ë¼ô\nCB─ ê\n₧ë¼ä┼╞!ê Aë¼ä┼╟!ê╚ !¼ä┼╔!ê )ç" [nil result norm-table symbol-syntax-table-alist update-symbol-syntax-table-alist error "Syntax table missing from symbol-syntax-table-alist" "Alist item has null cdr" syntax-table-p "Non-syntax-table item in alist"] 2] make-symbol-syntax-table #[(in-table) "└ ┴\n!├─╔W½úH╩╦\"╠=½ì═╩╬\"╧\"IêTë¬Y,ç" [syntax-table copy-syntax-table in-table 0 nil syntax i out-table osyn 256 logand 255 3 logior -256 2] 7] show-chars-with-syntax #[(tables syntax) "└ ┴─Ä:½▄┴@ë╔\n9¼ä╦╠!ê9½êJë¬u═!ê\n╬W½Ü\nz=½è╨╤\n\"B\nTë\n¬b╥╙ƒ╘#D\nB,Aë¬!)\nƒ*ç" [syntax-table nil schars osyn ((set-syntax-table osyn)) tables chars table-symbol table 0 i error "bad argument non-symbol" set-syntax-table 256 syntax format "%c" mapconcat identity ""] 6] provide symbol-syntax] 2)